home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / rmqb01.zip / READQGF.BAS < prev    next >
BASIC Source File  |  1991-11-06  |  537b  |  22 lines
  1.  
  2.  '                             ReadQgf.bas
  3.  '
  4.  ' Purpose : Displays a QGF file
  5.  ' Compiler: QuickBASIC 4.5
  6.  ' Date    : Nov 3, 1991
  7.  
  8.  OPTION BASE 1
  9.  DEFINT A-Z
  10.  SCREEN 7    'QGF files created with Raster Master
  11.              'can be displayed in SCREENS 7,8,9, and 12
  12.  
  13.  OPEN "Gcar.qgf" FOR BINARY AS #1         'Gcar.qgf must be in the current
  14.  myArraySize = LOF(1) / 2                 'directory
  15.  DIM myImage(myArraySize)
  16.  FOR i = 1 TO myArraySize
  17.    GET #1, , myImage(i)
  18.  NEXT i
  19.  CLOSE #1
  20.  PUT (120, 50), myImage
  21.  
  22.